Option Explicit
'ۭqҲ
Private Sub TextBox1_MouseDown(ByVal Button As Integer, _
                               ByVal Shift As Integer, _
                               ByVal X As Single, _
                               ByVal Y As Single)
    Dim mystr As String
    mystr = "bTextBox1"
    Select Case Shift
        Case 0
        Case 1: mystr = mystr & "Shift +"
        Case 2: mystr = mystr & "Ctrl +"
        Case 4: mystr = mystr & "Alt +"
    End Select
    Select Case Button
        Case xlNoButton: mystr = mystr & ""
        Case xlPrimaryButton: mystr = mystr & "Ĥ@"
        Case xlSecondaryButton: mystr = mystr & "ĤG"
    End Select
    mystr = mystr & "QUF" & vbCrLf
    mystr = mystr & "ƹЪyЬX:=" & X & "Y:=" & Y & "C"
    MsgBox mystr
End Sub
